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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Functional description: 


This module returns the which map register is selected by a 
device. 


Modified by: 


v02-001 BP0001 Brian Porter, 22-JUL-1981 
Added second entry point. 


subroutine calc_map (lun,bit_number,register!,register2) 


byte lun 

byte bit_number 
integer*4 register! 

integer*4 register2 


integer*4 map_number 
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integer*4 field 
integert4 compress4 


field = LibSextzv (9,7,register2) 

call LibSinsy (LibSextzv (bit_number,2,register!),7,2, field) 
call Linchk (lun,1) 

if (field .gt. 495) then 

ye seers, 2) "ars ta REGISTER >495. SELECTED’ 

format(’ °,t40,a 

else 

write(lun,10) "MAPPING REGISTER #' ab SELECTED’ 
soregts” -t40,a,i<compress4 (field)>,a) 

en 


return 
entry calc_map2 (bit_number,register!,register2,map_number) 


map_number = LibSextzv (9,7,register2) 
call LibSinsv(lLibSextzv(bit_number,2,register1),7,2,map_number) 
return 
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-Sep-1984 1 DISKSVMSMASTER: CERF .SRCICALCMAP.FOR; 1 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 281 PIC CON REL LCL SHR EXE RD NOWRT LONG 
2 SLocAt 138 PIE CON REL LCL NOSHR NOEXE RD \URT LONG 
Total Space Allocated 509 
ENTRY POINTS 
Address Type Name Address Type Name 
0-00000000 CALC_MAP 0-00000088 CALC_MAP2 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
esses tints is] ait enaee ae sh 44444 <2 4h aa AP-00000004@ L*1 LUN AP-000000108 I1*4 MAP_NUMBER 
LABELS 
Address’ Label Address Label 
1-0000004B8 5° 1-00000052 10° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name 
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COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:CALCMAP/OBJ=0BJ$:CALCMAP MSRC$:CALCMAP 
/CHECK=(NOBOUNDS Over LON NOUNDERF LOW) 


/DEBUG=(NOSYMBOL§, TRA K) 
/STANDARD= = (NOSYNTAX NOSOURC E FORM) 
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00 

SHOW= (NO OCESSOR NOINCLODE MA 00 
Ay jNoGe EP ORTING 714 FOPTIAIZE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 88 
00 

COMPILATION STATISTICS 85 
Run Time: 1.27 seconds 00 
Elapsed Time: 4.82 seconds 00 
Page Faults: 107 00 
Dynamic Memory: 169 pages oe 
00: 
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